﻿Imports System.IO
Imports System.Media

Public Class Sound

    Public Shared Sub PlayOK()
        SystemSounds.Beep.Play()
    End Sub

    Public Shared Sub PlayError()
        SystemSounds.Exclamation.Play()
    End Sub

    Public Shared Sub PlayWarning()
        SystemSounds.Question.Play()
    End Sub

    '''' <summary>
    '''' Voor custom sounds, gebruik PlaySound(My.Resources.MySound)
    '''' </summary>
    '''' <param name="stream"></param>
    '''' <remarks></remarks>
    'Private Shared Sub PlaySound(ByVal stream As UnmanagedMemoryStream)
    '    Try
    '        Using player As New SoundPlayer(stream)
    '            player.PlaySync()
    '        End Using
    '    Catch
    '        ' niets doen
    '    End Try
    'End Sub

End Class
